home *** CD-ROM | disk | FTP | other *** search
/ Gamers Delight 2 / Gamers Delight 2.iso / Aminet / game / think / MADgic41.lzh / 1988 / waspnest.s < prev    next >
Text File  |  1989-10-04  |  2KB  |  57 lines
  1. ;Wasp Nest
  2. ;by Alexander Burtzev
  3. ;Union of Soviet Socialist Republics
  4. ;
  5. PUSK          MOV      FB,         <  B
  6.               MOV      FA,         <  B
  7.               MOV   <  A,          <  B
  8.               SUB   <  A,          <  A
  9.               JMP   @  B
  10. U             DAT                    4000
  11. SKIPA         MOV      U,          <  U
  12.               DJN      SKIPA,      <  U
  13. S             SPL                    SKIPA
  14. A             JMP      S
  15. FA            JMP      A
  16.               JMP     -1
  17.               JMP     -1
  18.               JMP     -1
  19.               JMP     -1
  20.               JMP     -1
  21.               JMP     -1
  22.               JMP     -1
  23. B             JMP     -1
  24. FB            JMP     -1
  25. START         MOV   # -223,           FB
  26. SEC           MOV   #  0,             A
  27. ; 
  28.               ADD   # -1407,          B
  29.               SPL                    10
  30.               SPL                    10
  31.               SPL                    10
  32.               SPL                    10
  33.               SPL                    10
  34.               SPL                    10
  35.               SPL                    10
  36.               SPL                    10
  37.               SPL                    10
  38.               JMP      PAUSE
  39.               JMP      1
  40.               JMP      1
  41.               JMP      1
  42.               JMP      1
  43.               JMP      1
  44.               JMP      1
  45.               JMP      1
  46.               JMP      1
  47.               JMP      PUSK
  48. PAUSE         JMP      1
  49.               JMP      1
  50.               JMP      1
  51.               DJN      SEC,           K
  52.               MOV   # -1000,          K
  53. LOOP          MOV      K,          <  K
  54.               DJN      LOOP,       <  K
  55. K             DAT                    7
  56.               END      START
  57.